home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ IE Help Menu.xpl
< prev
next >
Wrap
Text File
|
1999-07-18
|
2KB
|
69 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="6"
"COUNT"="4"
"UIPATH"="Internet\Internet Explorer\Appearance\"
"NAME"="Help Menu Options"
"LANGUAGE"="VBScript"
"VERSION"="1.1"
"TEXT 1"="Show "Tip of the Day" in Help menu"
"TEXT 2"="Show "Tutorial" in Help menu"
"TEXT 3"="Show "Send feedback" in Help menu"
"TEXT 4"="Show "For Netscape..." in Help menu"
"DESCRIPTION 1"="To show an item in the Help menu, activate it. To hide it, deactivate it."
"DESCRIPTION 2"="Please note that you need to restart Internet Explorer so the changes can take effect."
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
"COMMENT 2"=" "
sPath="HKCU\Software\Policies\Microsoft\Internet Explorer\"
sTIP="remove tip of the day" 'all dword (1 = remove)
sTUT="remove tutorial"
sFED="remove feedback"
sNET="remove netscape help"
Sub Plugin_Initialize
i=RegReadValue(sPath & sTIP)
if i<>1 then SetUIElement 1,true
i=RegReadValue(sPath & sTUT)
if i<>1 then SetUIElement 2,true
i=RegReadValue(sPath & sFED)
if i<>1 then SetUIElement 3,true
i=RegReadValue(sPath & sNET)
if i<>1 then SetUIElement 4,true
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
Call WriteIt(1,sTIP)
Call WriteIt(2,sTUT)
Call WriteIt(3,sFED)
Call WriteIt(4,sNET)
End Sub
Sub WriteIt(ITM,VAL)
b=GetUIElement(ITM)
if b=false then
call RegWriteValue(sPATH & VAL,1,2)
else
chk=RegReadValue(sPATH & VAL)
if IsEmpty(chk)=false then
Call RegDeleteValue(sPATH & VAL)
end if
end if
end sub
Sub Plugin_Terminate
End Sub